00010	COMPILE;
00100	INSTRUMENT GLISS;
00200	OSCIL(P4,MAG/P2,P5);
00220	OSCIL(MAG*P7-MAG*P3, MAG/P2,P10);
00300	OSCIL(U2,MAG/P8,P9);
00400	OSCIL(U1,MAG*P3+U3,P6);
00500	OUTA←OUTA+U4; END; FINISH;
01500	ARRAY F5,F6,F7(512); <F1 is already present.
01600	SEG(F5);0,1  1,7  .7,12  .2,20  0,100;<Envelope
01700	SEG(F6);0,1  0,60  1,100; <Slope
01750	SYNTH(F1);1 1 3 .3  5 .2  7 .001 999;
01775	SEG(F7);0 1 1 100;
01800	
02100	
02400	PLAY;GLISS 0 1 100 2000 F5 F1 P3+5 1 F6 F7;FINISH;